home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_62_getOne(aLinearList).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  554 b   |  16 lines
  1. on mouseDown
  2.   global gDefaultLinearList
  3.   doButton()
  4.   set vListPosition to the text of member "Checking Linear GetOne Input Field 1"
  5.   set vListPosition to checkValue(vListPosition)
  6.   if vListPosition <> EMPTY then
  7.     if ilk(gDefaultLinearList, #linearList) then
  8.       if vListPosition starts "#" then
  9.         set vListPosition to value(vListPosition)
  10.       end if
  11.       set vGottenValue to string(getOne(gDefaultLinearList, vListPosition))
  12.       set the text of member "Checking Linear GetOne Display Field 2" to vGottenValue
  13.     end if
  14.   end if
  15. end
  16.